home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
sputils.zip
/
ASKMOUSE.DOC
next >
Wrap
Text File
|
1991-01-06
|
3KB
|
86 lines
Ask Mouse version 1.2 (C) Copyright SPETER SOFTWARE, December 1990.
This program allows mouse or keyboard input for batch files.
Uses the up/down cursor keys or a MS compatible mouse (if available).
The program sets the Dos ErrorLevel to allow batch selection branching.
NOTE: The program only works in text screen modes.
The program was written in Borland's Turbo Pascal 5.5
Usage:
-------
1: AskMouse [/h]
Output a help screen.
/h (optional)
2: AskMouse x1 y1 x2 y2 <valid-characters> x y [/t] [/m]
Get user input (using a mouse if available).
(x1,y1) - (x2,y2) define the limits of mouse movement
valid-characters allows for "hit-keys"
(use "*" to match any letter)
(x,y) initial mouse cursor position
/t (optional) do NOT display or use the text cursor
/m (optional) do NOT display or use the mouse cursor
x's are in the range [1..80]
y's are in the range [1..25]
Returns:
--------
errorlevel = 100 + mouse line (1..25) - when a mouse button is pressed; or
errorlevel = 100 + text cursor line (1..25) - when <enter> is pressed; or
errorlevel = 200 + position in list (1..n) - when a character is pressed
Examples:
---------
1: AskMouse 1 10 25 15 mtydka 5 12
Limit the mouse to the area between column 1 of line 10 and column 25 of line
15; initially place the mouse at column 5 of line 12.
The user's options are to:
* move the mouse to one of the lines and press either mouse button; or
* use the cursor keys to move the cursor and press <enter>; or
* press one of the valid keys (m,t,y,d,k or a).
The following table gives some of the possible results from the command line
above:
ACTION ERRORLEVEL
-------------------------------------------------------- ----------
a mouse button pressed, with the mouse cursor on line 12 112
<Enter> key pressed, with the text cursor on line 14 114
letter "d" pressed 204
2: AskMouse 1 10 25 15 "" 5 12 /t
As above, but without character "hit keys", and without the text cursor.
3: AskMouse 1 10 25 15 mtydka* 5 12
As in (1), but in addition to the specified "hit keys", match any other letter
pressed with the "*".
4: AskMouse 1 10 25 15 * 5 12 /m
As in (1), but match any letter pressed (*), without using the mouse.
Correspondence:
---------------
Please address any comments to:
Stephen Peter
INTERNET:
steve@cad0.arch.unsw.oz.au
POST:
SPETER SOFTWARE
P.O. BOX 643
LANE COVE
NSW 2066
AUSTRALIA